﻿Module Modulo1
    Public area As String
    Public root As String = "ROOT"
End Module


Public Class Main

    Dim x As Integer = 0


    Private Sub Proyecto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proyecto.Click
        area = "ADMINISTRATIVO"
        Autent.ShowDialog()
    End Sub

    Private Sub RecursosHumanos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RecursosHumanos.Click
        area = "RRHH"
        Autent.ShowDialog()
    End Sub

    Private Sub Materias_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Materias.Click
        area = "ADMINISTRATIVO TECNICO"
        Autent.ShowDialog()
    End Sub

    Private Sub Finanzas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Finanzas.Click
        area = "FINANZAS"
        Autent.ShowDialog()
    End Sub
End Class
